home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / varie / ditnglsh.lha / DITOenglish / Install < prev    next >
Text File  |  1996-11-14  |  1KB  |  55 lines
  1. ; Very simple installer script for DITO vocabularies
  2. ; --------------------------------------------------
  3.  
  4. (message
  5.    "\nDITO\n"
  6.    "© Dirk Holtwick, 1996\n\n"
  7.    "DITO is a very flexible learning system for "
  8.    "languages. Notice that it is SHAREWARE and that "
  9.    "you have to pay a fee if you want to use it often.\n\n"
  10.    "Please read the README file for further informations.\n\n"
  11.    "Enjoy it, Dirk"
  12. )
  13.  
  14. (set destname
  15.    (askdir
  16.       (prompt "Where is your vocabulary drawer?")
  17.       (help @askdir-help)
  18.       (default "DITO:vocs")
  19.    )
  20. )
  21.  
  22. (set ch
  23.    (askoptions
  24.       (prompt "Wich vocabularies would you like to use?")
  25.       (help @askoptions-help)
  26.       (choices
  27.          "Grundwortschatz (English-German, ? entries)"
  28.       )
  29.       (default 255)
  30.    )
  31. )
  32.  
  33. (if (bitand ch 1)
  34.  (
  35.    (makedir
  36.       (tackon destname "english/Grundwortschatz")
  37.       (prompt)
  38.    )
  39.    (copyfiles
  40.       (prompt "Copying 'Grundwortschatz' files")
  41.       (help @copyfiles-help)
  42.       (source "english/Grundwortschatz")
  43.       (dest (tackon destname "english/Grundwortschatz"))
  44.       (all)
  45.    )
  46.    (copyfiles
  47.       (prompt "Copying 'Grundwortschatz' files")
  48.       (help @copyfiles-help)
  49.       (source "english")
  50.       (dest (tackon destname "english"))
  51.       (pattern "Grundwortschatz.voc")
  52.    )
  53.  )
  54. )
  55.